inherited rstIncomplete: TrstIncomplete
  HelpContext = 1145
  ActiveControl = dbeActNo
  Caption = #1056#1077#1077#1089#1090#1088' '#1085#1077#1076#1086#1087#1086#1089#1090#1072#1074#1086#1082
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    inherited TfraAddress1: TfraAddress
      Top = 337
      Height = 0
      Enabled = False
      Visible = False
      inherited SearchBox: TGroupBox
        Height = 0
        Constraints.MinHeight = 0
        Constraints.MinWidth = 0
        Enabled = False
        Visible = False
        inherited SubPanel: TPanel
          inherited Label6: TLabel
            Alignment = taRightJustify
            AutoSize = False
            Caption = #8470' '#1072#1082#1090#1072
          end
          inherited Label5: TLabel
            Left = 30
            Width = 69
            Alignment = taRightJustify
            AutoSize = False
            Caption = #1042#1077#1083#1080#1095#1080#1085#1072
          end
          inherited Label4: TLabel
            Left = 30
            Width = 69
            Alignment = taRightJustify
            AutoSize = False
            Caption = #1059#1050
          end
          inherited Label3: TLabel
            Left = 30
            Width = 69
            Alignment = taRightJustify
            AutoSize = False
            Caption = #1059#1095#1072#1089#1090#1086#1082
          end
          inherited Label2: TLabel
            Left = 30
            Width = 69
            Alignment = taRightJustify
            AutoSize = False
            Caption = #1055#1086#1089#1090#1072#1074#1097#1080#1082
          end
          inherited Label1: TLabel
            Left = 30
            Width = 69
            Alignment = taRightJustify
            AutoSize = False
            Caption = #1059#1089#1083#1091#1075#1072
          end
        end
      end
      inherited QStreets: TpFIBDataSet
        Transaction = trList
        UpdateTransaction = trList
      end
      inherited QHouses: TpFIBDataSet
        Transaction = trList
        UpdateTransaction = trList
      end
      inherited QTowns: TpFIBDataSet
        Transaction = trList
        UpdateTransaction = trList
      end
      inherited QApparts: TpFIBDataSet
        Transaction = trList
        UpdateTransaction = trList
      end
    end
    inherited GroupBox1: TGroupBox
      Height = 337
      object Label6: TLabel
        Left = 28
        Top = 26
        Width = 69
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #8470' '#1072#1082#1090#1072
      end
      object Label5: TLabel
        Left = 28
        Top = 51
        Width = 69
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #1042#1077#1083#1080#1095#1080#1085#1072
      end
      object Label1: TLabel
        Left = 28
        Top = 75
        Width = 69
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #1059#1089#1083#1091#1075#1072
      end
      object Label2: TLabel
        Left = 28
        Top = 99
        Width = 69
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #1055#1086#1089#1090#1072#1074#1097#1080#1082
      end
      object Label3: TLabel
        Left = 28
        Top = 123
        Width = 69
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #1059#1095#1072#1089#1090#1086#1082
      end
      object Label4: TLabel
        Left = 8
        Top = 147
        Width = 89
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #1046#1080#1083#1080#1097#1085#1072#1103' '#1086#1088#1075'.'
      end
      object Label7: TLabel
        Left = 28
        Top = 195
        Width = 69
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #1087#1086
      end
      object Label8: TLabel
        Left = 28
        Top = 171
        Width = 69
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #1055#1077#1088#1080#1086#1076' '#1089
      end
      object FindBtn: TButton
        Left = 8
        Top = 302
        Width = 75
        Height = 25
        Hint = #1054#1073#1085#1086#1074#1080#1090#1100' '#1076#1072#1085#1085#1099#1077' '#1087#1086#1080#1089#1082#1072
        Caption = #1055#1086#1080#1089#1082
        TabOrder = 9
        OnClick = aRefreshExecute
      end
      object ClearBtn: TButton
        Left = 88
        Top = 302
        Width = 75
        Height = 25
        Caption = #1054#1095#1080#1089#1090#1080#1090#1100
        TabOrder = 10
        OnClick = ClearBtnClick
      end
      object AddBtn: TButton
        Left = 168
        Top = 302
        Width = 83
        Height = 25
        Caption = #1056#1072#1089#1096#1080#1088#1077#1085#1085#1099#1081
        Enabled = False
        TabOrder = 11
      end
      object dbeActNo: TDBEditEh
        Left = 104
        Top = 24
        Width = 146
        Height = 19
        AlwaysShowBorder = True
        EditButtons = <>
        Flat = True
        TabOrder = 0
        Visible = True
      end
      object lcbSrvGroup: TDBLookupComboboxEh
        Left = 104
        Top = 72
        Width = 146
        Height = 19
        AlwaysShowBorder = True
        DropDownBox.Sizable = True
        DropDownBox.SpecRow.CellsText = '---'
        DropDownBox.SpecRow.Value = -1
        DropDownBox.SpecRow.Visible = True
        EditButtons = <>
        Flat = True
        KeyField = 'ID'
        ListField = 'NAME'
        ListFieldIndex = -1
        ListSource = dsc_Group
        TabOrder = 2
        Visible = True
      end
      object lcbSupplier: TDBLookupComboboxEh
        Left = 104
        Top = 96
        Width = 146
        Height = 19
        AlwaysShowBorder = True
        DropDownBox.Sizable = True
        DropDownBox.SpecRow.CellsText = '---'
        DropDownBox.SpecRow.Value = -1
        DropDownBox.SpecRow.Visible = True
        EditButtons = <>
        Flat = True
        KeyField = 'ID'
        ListField = 'NAME'
        ListFieldIndex = -1
        ListSource = dsc_Supplier
        TabOrder = 3
        Visible = True
        OnExit = lcbSupplierExit
      end
      object lcbSupplierDept: TDBLookupComboboxEh
        Left = 104
        Top = 120
        Width = 146
        Height = 19
        AlwaysShowBorder = True
        DropDownBox.Sizable = True
        DropDownBox.SpecRow.CellsText = '---'
        DropDownBox.SpecRow.Value = -1
        DropDownBox.SpecRow.Visible = True
        EditButtons = <>
        Flat = True
        KeyField = 'NAME'
        ListField = 'ID'
        ListFieldIndex = -1
        ListSource = dsc_SuppDept
        TabOrder = 4
        Visible = True
      end
      object lcbManag: TDBLookupComboboxEh
        Left = 104
        Top = 144
        Width = 146
        Height = 19
        AlwaysShowBorder = True
        DropDownBox.Sizable = True
        DropDownBox.SpecRow.CellsText = '---'
        DropDownBox.SpecRow.Value = -1
        DropDownBox.SpecRow.Visible = True
        EditButtons = <>
        Flat = True
        KeyField = 'ID'
        ListField = 'MANAG'
        ListFieldIndex = -1
        ListSource = dsc_Manag
        TabOrder = 5
        Visible = True
      end
      object dbtBdate: TDBDateTimeEditEh
        Left = 104
        Top = 168
        Width = 146
        Height = 19
        AlwaysShowBorder = True
        EditButtons = <>
        Flat = True
        Kind = dtkDateEh
        TabOrder = 6
        Visible = True
      end
      object dbtEdate: TDBDateTimeEditEh
        Left = 104
        Top = 192
        Width = 146
        Height = 19
        AlwaysShowBorder = True
        EditButtons = <>
        Flat = True
        Kind = dtkDateEh
        TabOrder = 7
        Visible = True
      end
      object dbnPercent: TDBNumberEditEh
        Left = 104
        Top = 48
        Width = 146
        Height = 19
        AlwaysShowBorder = True
        EditButtons = <>
        Flat = True
        TabOrder = 1
        Value = 0.000000000000000000
        Visible = True
      end
      object GroupBox3: TGroupBox
        Left = 65
        Top = 216
        Width = 185
        Height = 58
        Caption = '                '
        TabOrder = 8
        object cbMeterEnable: TDBCheckBoxEh
          Left = 11
          Top = -2
          Width = 41
          Height = 17
          Alignment = taLeftJustify
          AlwaysShowBorder = True
          Caption = #1042#1089#1077
          Checked = True
          Flat = True
          State = cbChecked
          TabOrder = 0
          ValueChecked = '1'
          ValueUnchecked = '0'
          OnClick = cbMeterEnableClick
        end
        object cbNormativ: TDBCheckBoxEh
          Left = 39
          Top = 16
          Width = 97
          Height = 17
          AlwaysShowBorder = True
          Caption = #1087#1086' '#1085#1086#1088#1084#1072#1090#1080#1074#1091
          Checked = True
          Enabled = False
          Flat = True
          State = cbChecked
          TabOrder = 1
          ValueChecked = '1'
          ValueUnchecked = '0'
        end
        object cbMeter: TDBCheckBoxEh
          Left = 39
          Top = 34
          Width = 97
          Height = 17
          AlwaysShowBorder = True
          Caption = #1087#1086' '#1089#1095#1077#1090#1095#1080#1082#1091
          Checked = True
          Enabled = False
          Flat = True
          State = cbChecked
          TabOrder = 2
          ValueChecked = '1'
          ValueUnchecked = '0'
        end
      end
      object cbShowDeleted: TDBCheckBoxEh
        Left = 104
        Top = 278
        Width = 145
        Height = 17
        AlwaysShowBorder = True
        Caption = #1055#1086#1082#1072#1079#1072#1090#1100' '#1091#1076#1072#1083#1077#1085#1085#1099#1077
        Flat = True
        TabOrder = 12
        ValueChecked = '1'
        ValueUnchecked = '0'
      end
    end
    inherited TfraSubstanceInfo1: TfraSubstanceInfo
      Top = 337
      Height = 232
      inherited TopPanel: TPanel
        Height = 0
      end
      inherited BottomPanel: TPanel
        Top = 232
        Height = 0
      end
      inherited PageControl: TPageControl
        Top = 0
        Height = 232
        Visible = False
        inherited TSInfo: TTabSheet
          inherited InfoGrid: TDBGridEh
            Height = 201
          end
        end
      end
      inherited QSubstanceInfo: TpFIBDataSet
        Transaction = trRefer
        UpdateTransaction = trRefer
        DataSource = nil
      end
    end
  end
  inherited Panel2: TPanel
    inherited GroupBox2: TGroupBox
      inherited DetailGrid: TDBGridEh
        DataSource = dsc_Detail
        OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
        UseMultiTitle = True
        VTitleMargin = 5
        Columns = <
          item
            EditButtons = <>
            FieldName = 'ADDRESS'
            Footers = <>
            Title.TitleButton = True
          end
          item
            EditButtons = <>
            FieldName = 'NAME'
            Footers = <>
            Title.TitleButton = True
          end
          item
            EditButtons = <>
            FieldName = 'SUMMA'
            Footers = <>
            Title.TitleButton = True
          end>
      end
    end
    inherited Panel3: TPanel
      inherited dbgRefer: TDBGridEh
        PopupMenu = pmRefer
        Columns = <
          item
            EditButtons = <>
            FieldName = 'RACT_NO'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RGROUP_ID'
            Footers = <>
            Visible = False
          end
          item
            EditButtons = <>
            FieldName = 'RSRV_NAME'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RBDATE'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'REDATE'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RINCOMPLETE'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RSUMMA'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RNORM'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RMETER'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RMANAG_NAME'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RSUPPLIER_NAME'
            Footers = <>
          end>
      end
    end
  end
  inherited shblActionList: TActionList
    object aCalcAct: TAction
      Caption = #1056#1072#1089#1095#1080#1090#1072#1090#1100' '#1074#1099#1073#1088#1072#1085#1099#1081' '#1072#1082#1090
      Hint = #1056#1072#1089#1095#1080#1090#1072#1090#1100' '#1074#1099#1073#1088#1072#1085#1099#1081' '#1072#1082#1090' '#1085#1077#1076#1086#1087#1086#1089#1090#1072#1074#1082#1080
      OnExecute = aCalcActExecute
    end
    object aCalcAllActs: TAction
      Caption = #1056#1072#1089#1095#1080#1090#1072#1090#1100' '#1074#1089#1077' '#1072#1082#1090#1099
      Hint = #1056#1072#1089#1095#1080#1090#1072#1090#1100' '#1074#1089#1077' '#1085#1072#1081#1076#1077#1085#1085#1099#1077' '#1072#1082#1090#1099' '#1085#1077#1076#1086#1087#1086#1089#1090#1072#1074#1082#1080
      OnExecute = aCalcAllActsExecute
    end
  end
  inherited dsRefer: TpFIBDataSet
    DeleteSQL.Strings = (
      'UPDATE'
      '    d_incomplete_acts'
      'SET is_deleted = 1'
      'WHERE'
      '  id = :RACT_ID        ')
    RefreshSQL.Strings = (
      'SELECT'
      '    RACT_ID,'
      '    RACT_NO,'
      '    RGROUP_ID,'
      '    RSRV_NAME,'
      '    RBDATE,'
      '    REDATE,'
      '    RINCOMPLETE,'
      '    RNORM,'
      '    RMETER,'
      '    RMANAG_NAME,'
      '    RSUPPLIER_NAME,'
      '    RSUMMA,'
      '    RACT_ID as id'
      'FROM'
      '    PROC_V_INCOMPLETE(:PACT_NO,'
      '    :PINCOMPLETE,'
      '    :PGROUP_ID,'
      '    :PSUPPLIER_ID,'
      '    :PSUPPLIER_DEPT,'
      '    :PMANAG_ID,'
      '    :PBDATE,'
      '    :PEDATE,'
      '    :PMETER,'
      '    :PNORM,'
      '    :PADD_PARAM,'
      '    :RACT_ID) ')
    SelectSQL.Strings = (
      'SELECT'
      '    RACT_ID,'
      '    RACT_NO,'
      '    RGROUP_ID,'
      '    RSRV_NAME,'
      '    RBDATE,'
      '    REDATE,'
      '    RINCOMPLETE,'
      '    RNORM,'
      '    RMETER,'
      '    RMANAG_NAME,'
      '    RSUPPLIER_NAME,'
      '    RSUMMA,'
      '    RACT_ID as id'
      'FROM'
      '    PROC_V_INCOMPLETE(:PACT_NO,'
      '    :PINCOMPLETE,'
      '    :PGROUP_ID,'
      '    :PSUPPLIER_ID,'
      '    :PSUPPLIER_DEPT,'
      '    :PMANAG_ID,'
      '    :PBDATE,'
      '    :PEDATE,'
      '    :PMETER,'
      '    :PNORM,'
      '    :PADD_PARAM,'
      '    :PACT_ID) ')
    AutoUpdateOptions.UpdateTableName = 'PROC_V_INCOMPLETE(:PACT_NO'
    AutoUpdateOptions.KeyFields = 'RACT_ID'
    Database = MAINDM.pMainDatabase
    object dsReferRACT_NO: TFIBStringField
      DisplayLabel = #1040#1082#1090' '#8470
      DisplayWidth = 10
      FieldName = 'RACT_NO'
      Size = 30
      EmptyStrToNull = True
    end
    object dsReferRGROUP_ID: TFIBIntegerField
      FieldName = 'RGROUP_ID'
    end
    object dsReferRSRV_NAME: TFIBStringField
      DisplayLabel = #1059#1089#1083#1091#1075#1072
      DisplayWidth = 15
      FieldName = 'RSRV_NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object dsReferRBDATE: TFIBDateField
      DisplayLabel = #1057' '#1076#1072#1090#1099
      FieldName = 'RBDATE'
    end
    object dsReferREDATE: TFIBDateField
      DisplayLabel = #1055#1086' '#1076#1072#1090#1091
      FieldName = 'REDATE'
    end
    object dsReferRINCOMPLETE: TFIBBCDField
      DisplayLabel = #1042#1077#1083#1080#1095#1080#1085#1072' (%)'
      FieldName = 'RINCOMPLETE'
      Size = 2
      RoundByScale = True
    end
    object dsReferRNORM: TFIBSmallIntField
      DisplayLabel = #1055#1086' '#1085#1086#1088#1084#1077
      FieldName = 'RNORM'
    end
    object dsReferRMETER: TFIBSmallIntField
      DisplayLabel = #1055#1086' '#1089#1095#1077#1090#1095#1080#1082#1091
      FieldName = 'RMETER'
    end
    object dsReferRACT_ID: TFIBIntegerField
      FieldName = 'RACT_ID'
    end
    object dsReferRMANAG_NAME: TFIBStringField
      DisplayLabel = #1046#1080#1083#1080#1097#1085#1072#1103' '#1086#1088#1075#1072#1085#1080#1079#1072#1094#1080#1103
      DisplayWidth = 20
      FieldName = 'RMANAG_NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object dsReferRSUPPLIER_NAME: TFIBStringField
      DisplayLabel = #1055#1086#1089#1090#1072#1074#1097#1080#1082' / '#1059#1095#1072#1089#1090#1086#1082
      DisplayWidth = 20
      FieldName = 'RSUPPLIER_NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object dsReferRSUMMA: TFIBBCDField
      DisplayLabel = #1057#1091#1084#1084#1072' '#1087#1086' '#1072#1082#1090#1091
      FieldName = 'RSUMMA'
      Size = 2
      RoundByScale = True
    end
    object dsReferID: TFIBIntegerField
      FieldName = 'ID'
    end
  end
  inherited PropStorage: TPropStorageEh
    Section = 'TrstIncomplete'
    StoredProps.Strings = (
      '<P>.Height'
      '<P>.Left'
      '<P>.PixelsPerInch'
      '<P>.Top'
      '<P>.Width'
      '<P>.WindowState'
      'Panel2.GroupBox2.DetailGrid.<P>.Columns.ColumnsIndex'
      'Panel2.GroupBox2.DetailGrid.<P>.Columns.<ForAllItems>.Width'
      'Panel2.Panel3.dbgRefer.<P>.Columns.ColumnsIndex'
      'Panel2.Panel3.dbgRefer.<P>.Columns.<ForAllItems>.Width')
  end
  object ds_Group: TpFIBDataSet [15]
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME'
      'FROM'
      '    SERVICES s0'
      'where GROUP_ID = 0'
      '  and exists(select 1 from dogovors d, services s '
      '        where s.id = d.service_id and s.group_id = s0.id)'
      'order by 2')
    Transaction = trList
    Database = MAINDM.pMainDatabase
    Left = 728
    Top = 88
    poSQLINT64ToBCD = True
    object ds_GroupID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_GroupNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
  end
  object dsc_Group: TDataSource [16]
    DataSet = ds_Group
    Left = 760
    Top = 88
  end
  object ds_Supplier: TpFIBDataSet [17]
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME'
      'FROM'
      '    V_SUPPLIER  v'
      
        'where exists(select 1 from dogovors d where d.supplier_id = v.id' +
        ')'
      'order by 2')
    Transaction = trList
    Database = MAINDM.pMainDatabase
    Left = 728
    Top = 116
    poSQLINT64ToBCD = True
    object ds_SupplierID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_SupplierNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 60
      EmptyStrToNull = True
    end
  end
  object dsc_Supplier: TDataSource [18]
    DataSet = ds_Supplier
    Left = 760
    Top = 116
  end
  object ds_SuppDept: TpFIBDataSet [19]
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME'
      'FROM'
      '    RSUPPLIER_DEPS r'
      'where SUPPLIER_ID = :Supplier_ID'
      
        '  and exists(select 1 from dogovors d where d.supplier_id = r.SU' +
        'PPLIER_ID'
      '        and r.id = d.supplier_dept)'
      'order by 2')
    Transaction = trList
    Database = MAINDM.pMainDatabase
    Left = 728
    Top = 144
    poSQLINT64ToBCD = True
    object ds_SuppDeptID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_SuppDeptNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 60
      EmptyStrToNull = True
    end
  end
  object dsc_SuppDept: TDataSource [20]
    DataSet = ds_SuppDept
    Left = 760
    Top = 144
  end
  object ds_Manag: TpFIBDataSet [21]
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    MANAG'
      'FROM'
      '    RMANAG m'
      'where exists(select 1 from dogovors d where d.manag_id = m.id)'
      'order by 2')
    Transaction = trList
    Database = MAINDM.pMainDatabase
    Left = 728
    Top = 172
    poSQLINT64ToBCD = True
    object ds_ManagID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_ManagMANAG: TFIBStringField
      FieldName = 'MANAG'
      Size = 60
      EmptyStrToNull = True
    end
  end
  object dsc_Manag: TDataSource [22]
    DataSet = ds_Manag
    Left = 760
    Top = 172
  end
  object ds_Detail: TpFIBDataSet [23]
    SelectSQL.Strings = (
      'select v.address, v.name,'
      
        '       (select sum(rsumma) from proc_incomplete_get_charges (did' +
        '.d_inc_act_id, d.id)) as summa'
      '  from d_inc2dogovors did'
      '  join dogovors d on d.id = did.dogovor_id'
      '  join v_abons v on v.id = d.abonent_id'
      '  where did.d_inc_act_id = :id')
    Transaction = trRefer
    Database = MAINDM.pMainDatabase
    DataSource = dscRefer
    Left = 128
    Top = 528
    WaitEndMasterScroll = True
    dcForceOpen = True
    oRefreshAfterDelete = True
    oRefreshDeletedRecord = True
    object ds_DetailADDRESS: TFIBStringField
      DisplayLabel = #1040#1076#1088#1077#1089
      DisplayWidth = 30
      FieldName = 'ADDRESS'
      Size = 245
      EmptyStrToNull = True
    end
    object ds_DetailNAME: TFIBStringField
      DisplayLabel = #1060#1048#1054
      DisplayWidth = 30
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_DetailSUMMA: TFIBBCDField
      DisplayLabel = #1057#1091#1084#1084#1072
      FieldName = 'SUMMA'
      Size = 2
      RoundByScale = True
    end
  end
  object dsc_Detail: TDataSource [24]
    DataSet = ds_Detail
    Left = 164
    Top = 528
  end
  object pmRefer: TPopupMenu [25]
    Images = MAIN.ImageList
    Left = 120
    Top = 173
    object N1: TMenuItem
      Action = aCalcAct
    end
    object N2: TMenuItem
      Action = aCalcAllActs
    end
  end
  object qCalc: TpFIBQuery [26]
    Transaction = trCalc
    Database = MAINDM.pMainDatabase
    SQL.Strings = (
      'SELECT count(1) '
      '  FROM PROC_GENCHARGE (null, null, null,'
      '    :PBDATE,'
      '    :PEDATE,'
      '    :PDOGOVOR_ID,'
      '    1, '
      '    :PDOCDATE) ')
    Left = 372
    Top = 193
    qoStartTransaction = True
  end
  object ds_DogovorsInc: TpFIBDataSet [27]
    SelectSQL.Strings = (
      
        'select d2i.dogovor_id, firstdaymonth(dia.bdate) as bdate, lastda' +
        'ymonth(dia.edate) as edate'
      '  from d_inc2dogovors d2i, d_incomplete_acts dia'
      '  where dia.id = :pact_id'
      '    and dia.id = d2i.d_inc_act_id')
    AfterCancel = dsReferAfterRefresh
    AfterEdit = dsReferAfterEdit
    AfterInsert = dsReferAfterInsert
    AfterOpen = dsReferAfterRefresh
    AfterRefresh = dsReferAfterRefresh
    Transaction = trRefer
    Database = MAINDM.pMainDatabase
    AfterFetchRecord = dsReferAfterFetchRecord
    Left = 404
    Top = 194
    object ds_DogovorsIncDOGOVOR_ID: TFIBIntegerField
      FieldName = 'DOGOVOR_ID'
    end
    object ds_DogovorsIncBDATE: TFIBDateTimeField
      FieldName = 'BDATE'
    end
    object ds_DogovorsIncEDATE: TFIBDateTimeField
      FieldName = 'EDATE'
    end
  end
  object trCalc: TpFIBTransaction [28]
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 372
    Top = 225
  end
end
